home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / PRIME.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  562 b   |  43 lines
  1.  
  2.  
  3. int primes[500]
  4. int prime_count
  5.  
  6.  
  7. function is_prime(primein)
  8. {
  9. int i,test
  10.  
  11. ;test against all old primes
  12. for i=0 to prime_count-1
  13.     {
  14.     test = primes[i]
  15.     if (primein%test == 0)
  16.         return(0)
  17.     if (test*test > primein)    ;we've gone far enough...
  18.         break
  19.     }
  20. ;hey, we got a new one
  21. primes[prime_count] = primein
  22. prime_count = prime_count + 1
  23. return(1)
  24. }
  25.  
  26. function printprimes()
  27. {
  28. int i
  29.  
  30. primes[0] = 2
  31. prime_count = 1
  32. for i = 3 to 100
  33.     {
  34.     if is_prime(i)
  35.         Print( i)
  36.     if (prime_count >= 500)
  37.         break
  38.     }
  39. }
  40.  
  41. printprimes()
  42. WaitKey()
  43.